Loadstar 44/044.d81/custom screen

Commodore BASIC | 1988-01-01 | 2.9 KB | 95 lines

0 ifa=.thenpoke55,209:poke56,135:clr:a=1
1 ifa=1thena=2:load"cs.ml1",8,1
2 ifa=2thena=3:load"cs.ml2",8,1
3 z=6:z1=6:printchr$(142)"[147]":poke34847,6:poke34848,6
4 gosub168:poke650,128
6 sys49152:gosub104:printchr$(147)
8 sys49574:b=peek(782):h=peek(781)
10 ifb>39thenb=b-40:goto10
12 ifb>40thenh=h-1
14 g=h*40+1024:b=b+g:c=54272+b:ifpeek(b)=32thenpokec,peek(646)
16 d=peek(b):e=d:f=128:ifd>127thenf=-f
18 e=e+f:pokeb,e:f=-f
20 geta$:gosub32
22 ifpeek(214)=24thengosub28
24 ifa$<>""thenpokeb,d:printa$;:goto8
26 goto18
28 ifa$=chr$(13)ora$=chr$(17)ora$=chr$(141)thena$=""
30 return
32 ifa$>chr$(132)anda$<chr$(141)thengosub88
34 ifa$=chr$(133)thensys49588:poke49646,z:poke49647,z1:gosub62
36 ifa$=chr$(137)thensys49622:gosub64:a$=""
38 ifa$=chr$(134)thensys49261:a$=""
40 ifa$=chr$(138)thensys49366:a$=""
42 ifa$=chr$(135)thensys49486:a$=""
44 ifa$=chr$(139)thengosub122
46 ifa$=chr$(136)thengoto66
48 ifa$=chr$(140)thengosub78
50 ifa$=chr$(2)thenz=z+1:poke53280,z:ifz>15thenz=0
52 ifa$=chr$(22)thenz1=z1+1:poke53281,z1:ifz1>15thenz1=0
54 if p=1thenp=0:d=peek(b)
56 poke212,.:return
58 sys49152:poke53280,z+1:forx=0to99:next
59 poke53280,z:poke34847,z:poke34848,z1
60 return
62 poke53280,z+1:forx=0to100:nextx:poke53280,z:return
64 z=peek(49646):z1=peek(49647):poke53280,z:poke53281,z1:return
66 gosub58
68 printchr$(147)chr$(18)chr$(5)chr$(17)"load"chr$(146)chr$(17)
70 poke53280,6:poke53281,6
72 gosub90:ifok$<>"y"thengosub168:sys49217:goto48
74 sys49537:sys49579:ift$="d"thengosub236
76 sys34770:z=peek(34847):z1=peek(34848):d=peek(b):p=0:goto24
78 gosub58:poke53280,6:poke53281,6
80 printchr$(147)chr$(5):printchr$(18)"save"chr$(146)
82 gosub90:ifok$<>"y"thengosub168:sys49217:return
84 sys49537:sys49556:ift$="d"thengosub236
86 sys34770:return
88 pokeb,d:p=1:return
90 input"enter file name";n$:iflen(n$)>16then90
92 input"(t)ape or (d)isk";t$:ift$<>"t"andt$<>"d"then92
94 input"ok to continue (y/n)";ok$:ifok$<>"y"thengosub168:sys49217:return
96 if t$="t"thenpoke49540,1
98 if t$="d"thenpoke49540,8
100 l=len(n$):fork=1tol:poke52223+k,asc(mid$(n$,k,1)+chr$(0)):next
101 poke49547,l
102 printchr$(147):return
104 forx=0to4:print:next:printchr$(5)spc(8)"custom  screen  designer"
105 print"            by stephen rodda"
110 forx=1144to1183:pokex,42:pokex+54272,3:next
112 forx=1544to1583:pokex,42:pokex+54272,3:next
114 forx=0to4:print:next
115 printchr$(5)spc(6)"[145][145][145]do you want instructions (y/n)"
116 geta$:ifa$="y"thenprintchr$(147):gosub124:return
118 ifa$="n"thenreturn
120 sys49486:forx=0to200:next:goto116
122 gosub58:printchr$(147)
124 poke53280,6:poke53281,6:poke212,0
126 printchr$(19)chr$(5)"f 1 - memorizes the screen"
128 print"f 2 - recalls the memorized screen"
130 print"f 3 - flips the screen on the x axis"
132 print"f 4 - flips the screen on the y axis"
134 print"f 5 - reverses characters on the screen"
136 print"f 6 - displays this help screen"
138 print"f 7 - loads a previously saved screen"
140 print"f 8 - saves the screen to disk or tape"
142 print"ctrl + b - changes the border color"
144 print"ctrl + v - changes the background color"
146 printspc(7)"press any key to continue":wait197,4
148 printchr$(147):print"to create a screen, you may use any of"
150 print"the letters, numbers, or graphics"
152 print"characters on the keyboard. all the"
154 print"keys, such as the cursor and inst/del"
156 print"keys, will behave as they should."
158 print"to change the color of the cursor,"
160 print"use the standard ctrl key with a number"
162 print"key, or the commodore key with a number"
164 printspc(7)"press any key to continue":wait197,4
166 sys34770:poke198,0:printchr$(19):return
168 printchr$(19):poke53280,z:poke53281,z1:return
236 open15,8,15:input#15,u,v$:print#15,"i"
238 ifu=0thenclose15:return
240 printchr$(147):printu,v$
241 printchr$(17)" press any key to continue"chr$(19)
242 close15:wait197,4:poke198,0:return